Option Explicit On
Option Strict On

Imports System.Collections
Imports nstl

Namespace nstl.test
    Public Class int2single
        Implements IUnaryFunction(Of Integer, Single)
        Implements IBinaryFunction(Of Integer, Integer, Single)
        Public Function execute(ByVal par As Integer) As Single Implements IUnaryFunction(Of Integer, Single).Execute
            Return Convert.ToSingle(par)
        End Function

        Public Function execute1(ByVal lhs As Integer, ByVal rhs As Integer) As Single Implements IBinaryFunction(Of Integer, Integer, Single).execute
            Return Convert.ToSingle(lhs) + Convert.ToSingle(rhs)
        End Function
    End Class

End Namespace
